From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 17 May 2001 11:52:03 +0000 (+0000)
Subject: (fancy-splash-screens): Ignore events on the mode-line.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~40262
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=264a0a0f092d349eed60ecc86da7ca8f391ade23;p=emacs.git

(fancy-splash-screens): Ignore events on the mode-line.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 4006ca70092..84266811be1 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1181,11 +1181,12 @@ where FACE is a valid face specification, as it can be used with
 	    (use-local-map map)
 	    (define-key map [t] 'fancy-splash-default-action)
 	    (define-key map [mouse-movement] 'ignore)
+	    (define-key map [mode-line t] 'ignore)
 	    (setq cursor-type nil
 		  display-hourglass nil
 		  buffer-undo-list t
-		  mode-line-format
-		  (propertize "---- %b %-" 'face '(:weight bold))
+		  mode-line-format (propertize "---- %b %-" 
+					       'face '(:weight bold))
 		  fancy-splash-stop-time (+ (float-time)
 					    (max 60 fancy-splash-max-time))
 		  timer (run-with-timer 0 fancy-splash-delay